'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 7 2 . t x t                                                     D a t e :   1 2   A u g   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   5   M a y   -   f a s t   P W M 
 
 
 
 O p t i o n   S p e e d   9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 	 '   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   6 6 5         '   m a i n   p o w e r   p l u g   o u t 
 
 
 
 U S B 3 _ I N                 =   2 1 2 
 
 U S B 3 _ O U T               =   6 2 0 
 
 
 
 U S B C _ I N                 =   3 8 4 
 
 U S B C _ O U T               =   6 7 0 
 
 H D M I _ I N                 =   9 9 5 
 
 H D M I _ O U T               =   7 8 7 
 
 U S B P W R _ I N             =   2 0 5 
 
 U S B P W R _ O U T           =   4 7 0 
 
 O N O F F _ I N               =   7 5 0 
 
 O N O F F _ O U T             =   2 9 5 
 
 V O L U M E _ I N _ U P       =   6 1 4 
 
 V O L U M E _ O U T           =   6 9 0 
 
 V O L U M E _ I N _ D W       =   7 2 5 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   8 6 5 
 
 H E A R S E T _ O U T         =   5 6 5 
 
 P E N _ D O W N               =   5 6 0 
 
 P E N _ U P                   =   1 8 9 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                   =   1 3   	 	 	 ' 2 _ T a b T s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                   =   1 4                     ' 2 _ T a b T s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                   =   1 5 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R               =   1 6 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                 =   1 7 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	     =   1 8 	 	 	 ' 2 _ T a b T s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E               =   2 5 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y               =   2 6 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T             =   2 7 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                     =   2 9 	 	 	 ' 3 _ T a s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	             =   2 8 	 	 	 ' 3 _ T a b T s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r     =     9                     '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t _ R o t H V _ D r i v e             =   2 8             ' 3 0 	 	 '   s l o t 
 
 S l o t _ R o t H V _ C u r r e n t         =   6 0             ' 3 1 	 	 '   s l o t 
 
 S l o t _ R o t H V _ M a x C u r r e n t   =   6 0 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 ' ' ' ' ' ' ' ' ' ' ' ' ' ' '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 ' ' ' ' ' ' ' ' ' ' ' ' ' ' '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 ' ' ' ' ' ' ' ' ' ' ' ' ' ' '   F i l e N a m e   =   T e s t _ R e s u l t s . t x t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r _ 1 . e x e 
 
 ' L o a d   . . \ T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r _ 2 . e x e 
 
 
 
 ' L o a d   . . \ T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   . . \ T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   . . \ T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 
 
 
 
 K e y   R i g h t 	 	 G o s u b   M o v e R i g h t 
 
 K e y   L e f t   	 	 G o s u b   M o v e L e f t 
 
 K e y   U p   	 	 	 G o s u b   M o v e U p 
 
 K e y   D o w n   	 	 G o s u b   M o v e D o w n 
 
 K e y   P a g e u p 	 	 G o s u b   P E N   U P 
 
 K e y   P a g e d o w n 	 G o s u b   P E N   D O W N 
 
 K e y   E n d           	 G o s u b   P E N   S I N G L E 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 C O M   O p e n   1   1 1 5 2 0 0                   '   H o m e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b   V O L U M E   O U T 
 
 G o s u b   P E N   U P 
 
 G o s u b   M A I N   M E N U 
 
 
 
 S t o p 
 
 
 
 L a b e l   M A I N   M E N U 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   D I S P L A Y 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   T e x t   T O U C H 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   T e x t   A U D I O 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   T e x t   P L U G 
 
 	 B u t t o n   4   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   T e x t   W i - F i 
 
 	 B u t t o n   5   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   T e x t   B L U E T O O T H 
 
 	 B u t t o n   6   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   T e x t   P O W E R 
 
 	 B u t t o n   7   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   T e x t   V I R T U A L   K E Y 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   T e x t   M E C H A N I C A L 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   T e x t   M I S C E L L A N E A 
 
 	 B u t t o n   1 0   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   D I S P L A Y 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1     T e x t   L U M I N O S I T Y 
 
 	 B u t t o n   1     C o l o r   S k y B l u e 
 
 	 B u t t o n   2     T e x t   R E D 
 
 	 B u t t o n   2     C o l o r   R e d 
 
 	 B u t t o n   3     T e x t   G R E E N 
 
 	 B u t t o n   3     C o l o r   G r e e n 
 
 	 B u t t o n   4     T e x t   B L U 
 
 	 B u t t o n   4     C o l o r   B l u e 
 
 	 B u t t o n   5     T e x t   W H I T E 
 
 	 B u t t o n   5     C o l o r   W h i t e 
 
 	 B u t t o n   6     T e x t   B I T M A P 
 
 	 B u t t o n   6     C o l o r   S k y B l u e 
 
 	 B u t t o n   7     T e x t   P H O T O 
 
 	 B u t t o n   7     C o l o r   S k y B l u e 
 
 	 B u t t o n   8     T e x t   V I D E O 
 
 	 B u t t o n   8     C o l o r   S k y B l u e 
 
 	 B u t t o n   9     T e x t   N O   C O L O R 
 
 	 B u t t o n   9     C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   T e x t   C O L O R   T E S T 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 1   T e x t   " " 
 
 	 B u t t o n   1 1   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   T e x t   T O U C H   T E S T 
 
 	 B u t t o n   1 2   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   T e x t   C O L O R   R E C O G N I T I O N 
 
 	 B u t t o n   1 3   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   T O U C H 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   P E N   U P 
 
 	 B u t t o n   1   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   2   T e x t   P E N   D O W N 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   T e x t   P E N   S I N G L E 
 
 	 B u t t o n   3   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   4   T e x t   P E N   D O U B L E 
 
 	 B u t t o n   4   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   5   T e x t   S L I D E 
 
 	 B u t t o n   5   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   6   T e x t   S L I D E   P S W 
 
 	 B u t t o n   6   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   7   T e x t   T O U C H   T E S T 
 
 	 B u t t o n   7   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   8   T e x t   J O G   w i t h   M o u s e 
 
 	 B u t t o n   8   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   1 0   T e x t   S t a r t   W X M   A p p T a b l e t 
 
 	 B u t t o n   1 0   C o l o r   L i g h t S t e e l B l u e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   A U D I O 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   H E A R S E T   I N 
 
 	 B u t t o n   1   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   T e x t   H E A R S E T   O U T 
 
 	 B u t t o n   2   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   T e x t   V O L U M E   O U T 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   T e x t   V O L U M E   U P 
 
 	 B u t t o n   4   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   T e x t   V O L U M E   D W 
 
 	 B u t t o n   5   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   T e x t   V O L U M E   T E S T 
 
 	 B u t t o n   6   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   T e x t   S P E A K . D I S T . 
 
 	 B u t t o n   7   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   T e x t   T e s t H e a r s e t 
 
 	 B u t t o n   8   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P L U G 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   T e x t   P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3     T e x t   M E M O R Y   I N 
 
 	 B u t t o n   3     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4     T e x t   M E M O R Y   O U T 
 
 	 B u t t o n   4     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5     T e x t   U S B 3   I N 
 
 	 B u t t o n   5     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6     T e x t   U S B 3   O U T 
 
 	 B u t t o n   6     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7     T e x t   U S B C   I N 
 
 	 B u t t o n   7     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8     T e x t   U S B C   O U T 
 
 	 B u t t o n   8     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9     T e x t   H D M I   I N 
 
 	 B u t t o n   9     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0     T e x t   H D M I   O U T 
 
 	 B u t t o n   1 0     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1     T e x t   H E A R S E T   I N 
 
 	 B u t t o n   1 1     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2     T e x t   H E A R S E T   O U T 
 
 	 B u t t o n   1 2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   W i - F i 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   " "   '   E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   H o t P i n k 
 
 	 B u t t o n   2   T e x t   " "   '   E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   H o t P i n k 
 
 	 B u t t o n   3   T e x t   " "   '   E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   B L U E T O O T H 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   " "   ' E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   2   T e x t   " "   ' E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   3   T e x t   " "   ' E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P O W E R 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   T e x t   P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   T e x t   P O W E R   O N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   T e x t   P O W E R   O F F 
 
 	 B u t t o n   5   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   V I R T U A L   K E Y 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   N U M B E R 
 
 	 B u t t o n   1   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   T e x t   A L P H A B E T 
 
 	 B u t t o n   2   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   T e x t    $ % *   & [ @ ) ^ ! 
 
 	 B u t t o n   3   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   T e x t   P S   S E Q U E N C E S 
 
 	 B u t t o n   5   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   T e x t   G e t - S e r v i c e 
 
 	 B u t t o n   6   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   T e x t   W i n 1 0   u p d a t e   h i s t o r y 
 
 	 B u t t o n   7   C o l o r   S l a t e G r a y 
 
 	 ' B u t t o n   8   T e x t   S Y S T E M I N F O 
 
 	 ' B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   M E C H A N I C A L 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   Z E R O 
 
 	 B u t t o n   1   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   T e x t   E N A B . M O T O R S 
 
 	 B u t t o n   2   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   T e x t   D I S A B . M O T O R S 
 
 	 B u t t o n   3   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   4   T e x t   R O T A T E   V E R T 
 
 	 B u t t o n   4   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   5   T e x t   R O T A T E   H O R Z 
 
 	 B u t t o n   5   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   6   T e x t   R O T A T E   M I D L 
 
 	 B u t t o n   6   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   7   T e x t   B U T T O N   F A S T 
 
 	 B u t t o n   7   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   T e x t   B U R N   I N   7 - 2 4 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   M I S C E L L A N E A 
 
 	 G o s u b   C L E A R   B U T T O N S 
 
 	 B u t t o n   1   T e x t   S T A N D   B Y 
 
 	 B u t t o n   1   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   T e x t   S A F E   R E M O V E 
 
 	 B u t t o n   2   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   T e x t   A L L   I N 
 
 	 B u t t o n   3   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   T e x t   A L L   O U T 
 
 	 B u t t o n   4   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   T e x t   V   K E Y B O A R D 
 
 	 B u t t o n   5   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   T e x t   J O G   w i t h   M o u s e 
 
 	 B u t t o n   6   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   T e x t   C A L I B R A T E 
 
 	 B u t t o n   7   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   T e x t   U S B P W R   I N 
 
 	 B u t t o n   8   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   T e x t   U S B P W R   O U T 
 
 	 B u t t o n   9   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   T e x t   G e t S y s t e m I n f o 
 
 	 B u t t o n   1 1   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   T e x t   M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   T e x t   C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   N U M B E R 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =   " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l   A L P H A B E T 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l    $ % *   & [ @ ) ^ ! 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l   P S   S E Q U E N C E S 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   G e t - S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   W i n 1 0   u p d a t e   h i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   S e n d S y s t e m I n f o   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   L U M I N O S I T Y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   V   K E Y B O A R D 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l   R E D 
 
 	 C O M   W r i t e S t r i n g     R E D   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   G R E E N 
 
 	 C O M   W r i t e S t r i n g     G R E E N   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   B L U 
 
 	 C O M   W r i t e S t r i n g   B L U   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   W H I T E 
 
 	 C O M   W r i t e S t r i n g     W H I T E   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   N O   C O L O R 
 
 	 C O M   W r i t e S t r i n g   N O   C O L O R   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   B I T M A P 
 
 	 C O M   W r i t e S t r i n g   B I T M A P   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   P H O T O 
 
 	 C O M   W r i t e S t r i n g   P H O T O   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   V I D E O 
 
 	 C O M   W r i t e S t r i n g   V I D E O   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l   S T A N D   B Y 
 
 	 G o s u b   Z E R O 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b   P O W E R   I N 
 
 	 G o s u b   U S B 3   I N 
 
 	 G o s u b   M E M O R Y   I N 
 
 	 G o s u b   U S B C   O U T 
 
 	 G o s u b   H D M I   O U T 
 
 	 G o s u b   U S B P W R   O U T 
 
 	 G o s u b   H E A R S E T   O U T 
 
 	 G o s u b   O N O F F   O U T 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 G o s u b   D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l   A L L   I N 
 
 	 G o s u b   P O W E R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B 3   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B C   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H D M I   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B P W R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H E A R S E T   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   M E M O R Y   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b   O N O F F   I N 
 
 	 ' G o s u b   V O L U M E   I N _ U P 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   A L L   O U T 
 
 	 G o s u b   P O W E R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B 3   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B C   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H D M I   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   U S B P W R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   H E A R S E T   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   M E M O R Y   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b   O N O F F   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b   V O L U M E   I N _ D W 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   H o w   m a n y   l o o p s ? 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   S A F E   R E M O V E 
 
 	 G o s u b   Z E R O 
 
 	 G o s u b   P O W E R   O U T 
 
 	 G o s u b   U S B 3   O U T 
 
 	 G o s u b   U S B C   O U T 
 
 	 G o s u b   H D M I   O U T 
 
 	 G o s u b   U S B P W R   O U T 
 
 	 G o s u b   H E A R S E T   O U T 
 
 	 G o s u b   O N O F F   O U T 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 G o s u b   M E M O R Y   O U T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   B U T T O N   F A S T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   B U R N   I N   7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   C A L I B R A T E 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( S p a c e ) 
 
 	 G o s u b   Z E R O 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S P E A K . D I S T . 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   Z E R O 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( S p a c e ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b   P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   V O L U M E   T E S T 
 
 	 ' G o s u b   Z E R O 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b   S T A N D   B Y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( S p a c e ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b   V O L U M E   U P 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b   V O L U M E   D W 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b   V O L U M E   O U T 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l   C O L O R   T E S T 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R E D 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b   C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G R E E N 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b   C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B L U 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b   C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b   N O   C O L O R 
 
 R e t u r n 
 
 
 
 L a b e l   C O L O R   R E C O G N I T I O N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +       +   v 2   +       +   v 3   +       +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l   T O U C H   T E S T 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   S t a r t   W X M   A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l   S l i d e   P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b   S L I D E 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b   Z E R O 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b   A L L   O U T 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b   A L L   I N 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b   P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b   P O W E R   O U T 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b   E N A B . M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b   D I S A B . M O T O R S 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b   P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b   P E N   D O W N 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b   P E N   S I N G L E 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b   P E N   D O U B L E 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 G o s u b   P O W E R   C Y C L E 
 
 	 	 	 C a s e   " R O T A T E   H O R Z "               '   r o t a t e   t h e   t a b l e t   h o r i z o n t a l l y 
 
 	 	 	 	 G o s u b   R O T A T E   H O R Z 
 
 	 	 	 C a s e   " R O T A T E   M I D L "               '   r o t a t e   t h e   t a b l e t   6 0   d e g r e e 
 
 	 	 	 	 G o s u b   R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   V E R T "               '   r o t a t e   t h e   t a b l e t   v e r t i c a l l y 
 
 	 	 	 	 G o s u b   R O T A T E   V E R T 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b   H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b   H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b   U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b   U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b   U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b   U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b   U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b   U S B P W R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b   M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b   M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b   H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b   H E A R S E T   O U T 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b   C L O S E   A L L 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b   B I T M A P 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b   P H O T O 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b   V I D E O 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b   R E D 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b   G R E E N 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b   B L U 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b   N O   C O L O R 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b   G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b   P E N   T Y P I N G 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e ,   " . s e q " ,   " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t   '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y                   '   m o v e   t o   d e s t X   &   d e s t Y 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b   E N A B . M O T O R S 
 
 	 G o s u b   P E N   U P 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 ' G o s u b   D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   5 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   3 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   '   d e t a c h   i f   s e n s o r   a c t i v e 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
 ' 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
 ' 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
 ' 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I n i t i a l   p o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 ' L a b e l   S T A R T   L O O P 
 
 ' 	 v 2   =   I n p u t   H o w   m a n y   l o o p s   ? 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   A L L   I N 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   A L L   O U T 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l   P O W E R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   P O W E R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l   U S B 3   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   U S B 3   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   U S B C   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   U S B C   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   H D M I   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   H D M I   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   U S B P W R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   U S B P W R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l   O N O F F   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   O N O F F   I N 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   V O L U M E   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   V O L U M E   U P 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   V O L U M E   D W 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   M E M O R Y   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   M E M O R Y   I N 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   H E A R S E T   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   H E A R S E T   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   P E N   U P 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P E N   D O W N 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   P E N   S I N G L E 
 
 	 G o s u b   P E N   D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b   P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l   P E N   D O U B L E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l   P E N   T Y P I N G 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t   P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l   P O W E R   O N 
 
 	 G o s u b   U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b   O N O F F   I N 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   5   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b   O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l   P O W E R   O F F 
 
 	 G o s u b   U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b   O N O F F   I N 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   B l a c k 
 
 	 	 B u t t o n   5   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b   O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l   E N A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 ' I f   B u t t o n V i s i b l e ( 2 ) 
 
 ' 	 B u t t o n   2   T e x t   D I S A B . M O T O R S 
 
 ' 	 B u t t o n   2   C o l o r   G r e e n Y e l l o w 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   D I S A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 ' 	 I f   B u t t o n V i s i b l e ( 3 ) 
 
 ' 	 B u t t o n   3   T e x t   E N A B . M O T O R S 
 
 ' 	 B u t t o n   3   C o l o r   R e d 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l   R O T A T E   V E R T 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   R O T A T E   H O R Z 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   R O T A T E   H O R Z 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l   R O T A T E   M I D L 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l   R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   R O T A T E   V E R T 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l   J O G   w i t h   M o u s e 
 
 	 G o s u b   E N A B . M O T O R S 
 
 	 B u t t o n   8   T e x t   J O G   S T O P 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l   J O G   S T O P 
 
 	 B u t t o n   8   T e x t   J O G   w i t h   M o u s e 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   M o v e R i g h t 
 
 	 D e s t X   =   D e s t X   +   1 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e L e f t 
 
 	 D e s t X   =   D e s t X   -   1 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e U p 
 
 	 D e s t Y   =   D e s t Y   +   1 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e D o w n 
 
 	 D e s t Y   =   D e s t Y   -   1 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 R e t u r n 
 
 
 
 L a b e l   M o v e U p p e r 
 
 	 S l o t ( 5 )   =   S l o t ( 5 )   +   8 
 
 R e t u r n 
 
 
 
 L a b e l   C L E A R   B U T T O N S 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 '   - - - - - - - - - - - -   E v e n t   S T O P   - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 
 
 ' W A T C H   S e q u e n c e L e n g t h 
 
 ' W A T C H   S e q u e n c e C m d 
 
 ' E X E C   D e s t X   =   1 2 
 
 